home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Video Toaster 4.3
/
Video Toaster v4.3.iso
/
4.2
/
arexx
/
cg
/
sizedown.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1998-04-16
|
705b
|
33 lines
/* SizeDown.rexx -- Size the selected font down by 5 points. */
/* By Bob Caron © 1994 NewTek, Inc. */
call addlib(CG_AREXX,0)
cfont=get_char(face)
csize=get_font(SIZE)
csize=csize-5
if GET_LINE(TYPE)="Box" then call outtahere("You can't run this on boxes!")
if GET_FONT(TYPE)<4 then call outtahere("This can only be used on postscript fonts!!")
if csize<1 then call outtahere("You can't have a font THAT small!")
call REQ_BAR("Loading Font...")
call loadfont(cfont,csize)
call set_char(face,cfont,csize)
call REQ_BAR("ToasterCG")
call REMLIB(CG_AREXX)
exit
outtahere:
parse arg message
call req_tell(message)
call REQ_BAR("ToasterCG")
call REMLIB(CG_AREXX)
exit
return